home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / windows / download.zip / DOWNLOAD.WAS
Text File  |  1992-11-21  |  2KB  |  42 lines
  1. ;*******************************************************************
  2. ;This script is writen to automate your downloads using the file 
  3. ;clipboard. What you need to do, is input (click) your filenames
  4. ;to be downloaded into the file clipboard. The script will save 
  5. ;the names to a file (fileclip.txt) then open this file, and send 
  6. ;the names one at a time to the BBS. Afterwards, it will delete 
  7. ;fileclip.txt. It will also signoff the BBS. This script was writen
  8. ;to work with PCBoard BBS in the expert mode. The only thing you
  9. ;may have to change is the path for fileclip.txt, if you have
  10. ;changed the Prowins default directories. Write me back and let me
  11. ;know what you think. And thanks to the Datastorm Support group for 
  12. ;there help. This is my first one. 
  13. ;Michael Lee  Compuserve:75720,1221  Prodigy:XHHJ46A
  14. ;P.S. I saved this script to a Meta Key, its up to you on how to
  15. ;start it. Good Luck.
  16.  
  17. proc main
  18.   termkey 0x4BB        ;open fileclip board
  19.   pause 2
  20.   sendkey ALT 'F'    ;get to the file menu of the file clip board
  21.   sendkey 'S'        ;save clipboard
  22.   sendkey ALT 'O'    ;ok save to fileclip.txt
  23.   termkey 0x4bb
  24.   ;sendkey ALT 'F'
  25.   sendkey 'x'
  26.  
  27.   fopen 0 "f:\prowin\capture\fileclip.txt" READ TEXT
  28.   transmit "d^M"    ;tell bbs to download
  29.   while not feof 0
  30.       fgets 0 S0
  31.     call process_file
  32.   endwhile
  33.   transmit "g^M"
  34.   fclose 0
  35.   delfile "f:\prowin\capture\fileclip.txt"
  36. endproc
  37.   
  38. proc process_file
  39.   waitfor "none?"
  40.   transmit S0
  41.   transmit "^M"
  42. endproc